home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 OTL MIME 1.xpl < prev    next >
Text File  |  2004-01-16  |  2KB  |  52 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Outlook"
  5. "NAME"="Complete MIME Headers"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Display all MIME Headers"
  8. "DESCRIPTION 1"="Each e-mail sent on the Internet contains at least some so called MIME Headers. These headers contain important information about the email and are converted automatically by Outlook to Date Received, From etc."
  9. "DESCRIPTION 2"="By opening an email and selecting View -> Options you can view the most important MIME headers of a message. However, the headers for the email-text or the attachments are automatically removed by Outlook."
  10. "DESCRIPTION 3"="If this setting is turned on, Outlook will not simply remove the headers but keep them so you can later on view them using View -> Options. "
  11. "DESCRIPTION 4"="Note: This setting applies only if you receive messages through Internet mail, an Outlook that is connected to a Microsoft Exchange server does not care about this setting. "
  12. "VERSION"="1.00"
  13. "AUTHOR"="Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems"
  15. "CONTACTURL"="http://www.x-setup.net/"
  16. "COMMENT 1"="Found at http://www.poremsky.com/view_source.htm"
  17.  
  18.  
  19. 'Declaration of some constants
  20. sPath="HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook"
  21. sV=sPath & "\Options\Mail\SaveAllMIMENotJustHeaders"
  22.  
  23.  
  24. 'Called when the Plugin is started
  25. SUB Plugin_Initialize
  26.  if RegPathExists(sPath) then
  27.     i=RegReadValue(sV)
  28.     if i=1 then
  29.        Call SetUIElement(1,true)
  30.     end if
  31.  else
  32.     Call Disable()
  33.  end if
  34. END SUB
  35.  
  36. 'Called when the Plugin should validate the Data the user has entered
  37. SUB Plugin_CheckData(ElementIndex)
  38. END SUB
  39.  
  40. 'Called when the Plugin should apply the changes
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  if GetUIElement(1) then
  43.     Call RegWriteValue(sV,1,2)
  44.  else
  45.     if RegValueExists(sV) then Call RegDeleteValue(sV)
  46.  end if
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.